home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / library / rqtlsusr.lha / ReqTools / RexxReqTools / Examples / FontReq.rexx < prev    next >
OS/2 REXX Batch file  |  1994-08-09  |  673b  |  21 lines
  1. /* FontReq.rexx
  2.  * Demonstrates the fontrequester
  3.  *
  4.  * NOTE: `,' is a continuation character for statements that must be entered
  5.  *       on several source lines!!
  6.  */
  7.  
  8. call addlib("/libs/rexxreqtools.library", 0, -30, 0)
  9.  
  10. call rtfontrequest('Pick font',,'rtfo_flags = freqf_style',font)
  11. if font then
  12.   do
  13.     text = 'You picked' font.name 'size' font.height
  14.     if font.bold then text = text || '0A'x || 'You selected bold'
  15.     if font.italic then text = text || '0A'x || 'You selected italic'
  16.     if font.underlined then text = text || '0A'x || 'You selected underlined'
  17.     call rtezrequest(text,'Right')
  18.   end
  19. else
  20.   call rtezrequest('You picked no font',"I'm sorry")
  21.